*Black, Owens, Wedeking & Wohlfarth
*Chapter 6 Replication


use "Ch-6_Data_Merits.dta"

*Table 6.1

*Model 1
logit sgAmicusSupport consciPI openPI extraPI agreePI neuroPI if invite!=1, robust

*Model 2
logit sgAmicusSupport consciPI openPI extraPI agreePI neuroPI justicePresidentJCS c.segalCover##i.liberalSG c.mood##i.liberalSG sgAmicusReversal i.issueArea if invite!=1, robust

*Model 3
logit sgPartySupport consciPI openPI extraPI agreePI neuroPI, robust

*Model 4
logit sgPartySupport consciPI openPI extraPI agreePI neuroPI justicePresidentJCS c.segalCover##i.liberalUS c.mood##i.liberalUS sgPartyPetitioner i.issueArea, robust

*Model 5
logit sgSupport consciPI openPI extraPI agreePI neuroPI if invite!=1, robust

*Model 6
logit sgSupport consciPI openPI extraPI agreePI neuroPI justicePresidentJCS c.segalCover##i.liberalSGUS c.mood##i.liberalSGUS sgAmicusReversal sgPartyPetitioner i.issueArea if invite!=1, robust

*Figure 6.3(a)
logit sgAmicusSupport consciPI openPI extraPI agreePI neuroPI justicePresidentJCS c.segalCover##i.liberalSG c.mood##i.liberalSG sgAmicusReversal i.issueArea if invite!=1, robust
quietly margins, at(consciPI=(-3.7(.1)1.2))
marginsplot, xlabel(-3.7(.5)1.2) ylabel(.5(.05).75) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Probability of Supporting the SG as Amicus Curiae) title("") scheme(s1mono)

*Figure 6.3(b)
logit sgPartySupport consciPI openPI extraPI agreePI neuroPI justicePresidentJCS c.segalCover##i.liberalUS c.mood##i.liberalUS sgPartyPetitioner i.issueArea, robust
quietly margins, at(consciPI=(-3.7(.1)1.2))
marginsplot, xlabel(-3.7(.5)1.2) ylabel(.5(.05).75) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Probability of Supporting the United States as a Party) title("") scheme(s1mono)

*Figure 6.3(c)
logit sgSupport consciPI openPI extraPI agreePI neuroPI justicePresidentJCS c.segalCover##i.liberalSGUS c.mood##i.liberalSGUS sgAmicusReversal sgPartyPetitioner i.issueArea if invite!=1, robust
quietly margins, at(consciPI=(-3.7(.1)1.2))
marginsplot, xlabel(-3.7(.5)1.2) ylabel(.5(.05).7) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Probability of Supporting the SG and United States) title("") scheme(s1mono)

*Figure 6.2
keep if respondent == 27 | respondent == 1 | respondent == 12 | respondent == 14 | respondent == 22 | respondent == 304 | respondent == 306 | respondent == 314 | respondent == 315 | respondent == 316 | respondent == 317 | respondent == 321 | respondent == 324 | respondent == 325 | respondent == 326 | respondent == 327 | respondent == 328 | respondent == 329 | respondent == 330 | respondent == 332 | respondent == 333 | respondent == 334 | respondent == 335 | respondent == 336 | respondent == 338 | respondent == 340 | respondent == 341 | respondent == 343 | respondent == 344 | respondent == 347 | respondent == 349 | respondent == 354 | respondent == 356 | respondent == 357 | respondent == 360 | respondent == 362 | respondent == 363 | respondent == 364 | respondent == 366 | respondent == 368 | respondent == 369 | respondent == 370 | respondent == 371 | respondent == 373 | respondent == 376 | respondent == 377 | respondent == 379 | respondent == 382 | respondent == 388 | respondent == 390 | respondent == 392 | respondent == 393 | respondent == 394 | respondent == 396 | respondent == 397 | respondent == 402 | respondent == 405 | respondent == 406 | respondent == 407 | respondent == 408 | respondent == 410 | respondent == 411 | respondent == 412 | respondent == 414 | respondent == 418
gen name="."
replace name= 	"Fortas"	if justiceName==	"AFortas"
replace name= 	"Goldberg"	if justiceName==	"AJGoldberg"
replace name= 	"Kennedy"	if justiceName==	"AMKennedy"
replace name= 	"Scalia"	if justiceName==	"AScalia"
replace name= 	"White"		if justiceName==	"BRWhite"
replace name= 	"Whittaker"	if justiceName==	"CEWhittaker"
replace name= 	"Thomas"	if justiceName==	"CThomas"
replace name= 	"Souter"	if justiceName==	"DHSouter"
replace name= 	"Kagan"		if justiceName==	"EKagan"
replace name= 	"Warren"	if justiceName==	"EWarren"
replace name= 	"Frankfurter"if justiceName==	"FFrankfurter"
replace name= 	"Vinson"	if justiceName==	"FMVinson"
replace name= 	"Murphy"	if justiceName==	"FMurphy"
replace name= 	"Blackmun"	if justiceName==	"HABlackmun"
replace name= 	"Burton"	if justiceName==	"HHBurton"
replace name= 	"Black"		if justiceName==	"HLBlack"
replace name= 	"Roberts"	if justiceName==	"JGRoberts"
replace name= 	"Harlan"	if justiceName==	"JHarlan2"
replace name= 	"Stevens"	if justiceName==	"JPStevens"
replace name= 	"Powell"	if justiceName==	"LFPowell"
replace name= 	"Gorsuch"	if justiceName==	"NMGorsuch"
replace name= 	"Stewart"	if justiceName==	"PStewart"
replace name= 	"Ginsburg"	if justiceName==	"RBGinsburg"
replace name= 	"Jackson"	if justiceName==	"RHJackson"
replace name= 	"Alito"		if justiceName==	"SAAlito"
replace name= 	"O'Connor"	if justiceName==	"SDOConnor"
replace name= 	"Reed"		if justiceName==	"SFReed"
replace name= 	"Breyer"	if justiceName==	"SGBreyer"
replace name= 	"Minton"	if justiceName==	"SMinton"
replace name= 	"Sotomayor"	if justiceName==	"SSotomayor"
replace name= 	"Clark"		if justiceName==	"TCClark"
replace name= 	"Marshall"	if justiceName==	"TMarshall"
replace name= 	"Rutledge"	if justiceName==	"WBRutledge"
replace name= 	"Burger"	if justiceName==	"WEBurger"
replace name= 	"Rehnquist"	if justiceName==	"WHRehnquist"
replace name= 	"Brennan"	if justiceName==	"WJBrennan"
replace name= 	"Douglas"	if justiceName==	"WODouglas"
gen float forUS=.
replace forUS=0 if partyWinning==1 & majority==1
replace forUS=0 if partyWinning==0 & majority==0
replace forUS=1 if partyWinning==1 & majority==0
replace forUS=1 if partyWinning==0 & majority==1
drop if name ==	"Gorsuch"
graph dot (mean) forUS, over(name, sort(forUS) descending label(labcolor("black") angle(horizontal) labsize(vsmall))) exclude0 marker(1, mcolor(black) msize(small) msymbol(circle)) dots(mcolor(black)) ytitle(Percent Support for U.S. as Respondent) scheme(s1mono)

clear


use "Ch-6_Data_Agenda.dta"

*Table 6.3

*Model 1
logit follow_sg consciPI openPI extraPI agreePI neuroPI, robust

*Model 2
logit follow_sg consciPI openPI extraPI agreePI neuroPI polcon legalcon amici v1same voluntary honeymoon electionyr pres_house pres_senate policy_confusion prosg_amici, robust

*Figure 6.6
quietly margins, at(consciPI=(-3.7(.1)0.9)) 
marginsplot, xlabel(-3.7(.5)0.9) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Probability of Supporting the Solicitor General) title("") scheme(s1mono)

